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Listing Policy Annual Dues...$ 16.00 


One “sample” copy sent apon reciept of a large SASE. 

Copies provided on EXCHANGE BASIS with other bona fide user groups. 
LIST Ing is published monthly except duly and August by LIST (tong 
fstand Sinclair Timex) Group, a non profit user group. 


We are always looking for articles, programs, reviews, etc. to keep 
our members informed and entertained. Yoa maintain fui} copyright. 


Portions of this publication may be reproduced, without written 
consent. Please give credit to LIST when reprinting our articies. 


LIST disclaimes any responsibility for any. damage you may do to 
your Computer as a result of reading any articles in LIST ing. 
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I would like to discuss an additional operation for printing 
documentation from within Quill. I have recently received requests 
from some of our corresponding LIST members; “How print large 
documents, say 10 pages or more, back-to-back". 


What I mean by 'back-to-back' is that page two is printed on the back 


of page 1; page four is printed on the back of page three, and so 
One 


Before you start printing document pages singly, make a list of the 
pages; both odd pages and even pages and as you start to print each 
individual page cross out that Page number on your list so that you 
will not become confused when it is time to print the next page. 


ODD EVEN 
1 2 
3 4 
5 6 
7 8 


When you're ready to print out your document, press F3, P, ENTER. 


The command line will state Print, current,- press ENTER. 
The command line will state Print, current, whole, - press 1, ENTER. 
The command line will state Print, current, 1 to end,.- press 1 again 


and then press ENTER. 

The command line will state Print, current, 1 to 1, to printer,. 

To print out the page to your printer, press ENTER and the page will 
be printed. 

The next page to be printed should be page 3. Just repeat the above 
sequence by entering 3 instead of 1, and so on... 


Remember to print out ALL odd pages, in their normal sequence as the 
above table illustrates; then remove the printed pages from your 
printer and turn the printed paper over and reinsert the paper into 
your printer. Note that the printed matter on the Printer paper NOW 
faces up. Make sure that you installed the printer paper with the top 
of page 1 first and ensure that the top of the page is in the proper 
alignment so that the document header and/or footer will be in the 
approximate place as is the page 1 side. 


This sounds like a lot of work.. it really isn’t. Your documents will 
now be professional looking and as an added benefit, you have only 
used half the amount of printer Paper that you would normally use. 


Since the beginning of the year, the Germar. QL market seems to have 
_ exploded! Both suppliers have wide variety of new hardware and 
software for sale. Hard disk drives interfaces for an assortment of 


small to large capacity hard drives, a QL computer TOWER case, and so 
much more. 


It is my understanding that Mechanical Affinity will also be handling 
one of the German suppliers software and hardware, contact: 


MECHANICAL AFFINITY MECHANICAL AFFINITY 

c/o Frank Davis c/o Paaul Holmgren 

513 East Main Street 5231 Wilton Wood Court 

Peru Indiana 46970 Indianapolis, Indiana 46254 
Tel: 317-473-8031 tel: 317-291-6002 


See you next month.... Bob Gilder So = 


100 REM Utility Draw 

110 REM @ 1962 P Safranek 

126 GO SUB 348: CLS : LET x=a: 
ET w= 

138 LET 3$-INKEYS$ 

140 IF a$: OT AND a$ “ds AND 
aktc»"“s“ AND a$o“ Fr AND ag«eo"c" 


159 IF a$=“o“ THEN GO SUB 39a 
160 IF ag$=“d" THEN GO SUB 450 
158 IF ag$="s" THEN GO SUB 520 
199 IF a$s“r“ THEN GO SUB 410 
290 IF ag=“c“ THEN GO SUB 498 
218 LET x=x+tag=" “l-(ag=.hgw 
228 LET G=Y+(C(Aa$=|“Y") L (ag="'n nw) 
230 LET R=R+CAF= UI) {a3 §=“b"} 
248 LET S=Y+CAXS= U") —-faga"bh') 
258 LET R=EX+CIHS=S“MNWJ) -(agFi=.Ntw) 
258 LET Y=YF(AX=“ AN) -(age"m") 
278 IF x«8 THEN LET x-@ 

280 IF x>255 THEN LET X=255 
282 IF SGZI1I75' THEN ET Yeats 
389 IF U«( THEN LET u=ò 


x 
328 PLOT x,y: PLOT OVER l; x 
320 PLOT TH PLOT OUER o7x ug 


349 INPUT “ink [8-7] 7"; i°"“pa 
er [6-7] 7"; Pi “border tA-73 7"; 5 
358 IF i:6 OR is? THEN GO Ta 34 


368 IF P: OR i>? THEN GO TO 34 
on IF b:0 OR b>? THEN GO TO 34 


368 BORDER b: PAPER p: INK i 
399 INPUT “overra Of AKTÈ as IF 


O<>1 AND 0<>6 THEN GO TO 496 

4Q6 RETURN = 

418 INPUT “x?";x,"yF" sy 

4292 RETURN 

438 INPUT “x coord“; 

449 INPUT “y coord": 

459 INPUT “draw x7": 

468 INPUT “draw y?"! 

478 PLOT a,b: DRAW ¢ 
y 


santo 


d 


> 


488 RETURN 
498 INPUT “xX?7";xx;5" 


CIRCLE xx,yy,r 
RETURN 
INPUT “Name?7?"; 
SAVE fSSCREENS 
RETURN 


+99; “TP; 


LINE fẹ 


“Gtedraw” LINE 100 


ETER SAFRANEK of Ashford, 

Middlesex, has sent a very use- 

ful graphics program for the 
16K or 48K Spectrum. Commands 
available are “o” to input the over: 
“d” to draw for inputted x and y and 
draw x and draw y: "c" to draw a 
circle around inputted x and y co- 
ordinates and inputted radius; "s" to 
save the design on the screen as a 
SCREENS; and “r” to re-set the flash- 
ing pixel cursor to inputted x and y 
co-ordinates 

The pixel cursor is moved in any 
one of eight directions using the 
eight letters around “H” on the key- 
board—i.e., T, Y, U, G,]. B, N and M. 
Once you have entered the program 
you can SAVE it by entering “RUN 
550”. 

Practice and patience can produce 
displays like the map of Europe 
shown; an outline on the screen in 
washable ink was a help for this, 
Safranek reports. The advantage of 
such a saveable display for educa- 
tional purposes is obvious (16 or 48K) 


ROP 4 simulates a well-known 
parlour game in which you are 
required to complete a row of 
four counters. The display simulates 
neatly the frame used to hold the 
counters and the slow-motion fall of 
the counters down the screen. 
An enjoyable and diverting game 
of tactics from Arthur Douglas, of 
London E4(16K Spectrum). 


232 PRINT 
11; “PLAYER 
298 INPUT 


I 
2 
8 


x 3, LET IS="XXX": INK 
PAPER 2: CLS : DI 
S$=CHRS$ 244+CHRS 21454+CH 


$ 
120 LET Ts=cHRs 247+CHRS SS+CHR 


139 LET Ug=" ji 
aoe DATA 8.127,127,127,127,127, 


ASB DATA Q.25S8,255,255,255,25s), 
166 DATA 8,254,254,254,254,254, 
ate SOLO 128,128,128,128,128, 12 


DATA 1,1,1,1,1,1,1,25$ 
FOR Jv=144 TO 143: FOR K=08 T 


READ A: POKE USR CHRS J+K,A 
NEXT K:'NEXT J 

FOR J=2 TO 17 STEP 3 

FOR K=2 TO 26 STEP 4 

PRINT INK 6; PAPER OAT JK 


PRINT PAPER 6;AT J#1,K;TS 

NEXT K: NEXT 

PRINT INK 3;AT 0,3; "2 2 
K pE 

INK 7; PAPER X;AT 20, 

“GHICH COLUMN r 1 To 


iA 
309 IF A<>INT A OR A»)? OR Reg 


GO TO 29a 
LET C=(A-1) 2422 


Q 
328 IF ATTR (2,C) «6 THEN PRINT 
FLASH 1; AT FI Zig O UMN “RIT I 


E : 
330 PRINT AT 21,7: U$ 
Q 18 


358 LET Z=ATTR tu, c) 
EO PRINT AT J.C; PAPER x; INK 


IF J=2 THEN PRINT INK 3;AT 
*CHRS 32;A; CHR$ 
IF J2 AND 2=6 THEN PRINT P 
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APER 6:AT J-2,C;T$ 
ME IF y22 AND’ Z=48 THEN PRINT 
420 IF 22 AND 2256 THEN PRINT 
ele fe cess BARE yonn Sè 8%) 
= +2, =23 
OR ATTR (J+2,C) =15 N- 2 
do YA? SA 715 THEN BEEP Ba 


420 IF Z-48 THEN FOR Psi TO 4: 
BEEP 0-95, (20-23J) 4P. NEXT P 
NEXT J 


44@ LET L=J734+3: LET C=A+3 
“SO LET:A (L5C)-=x 

468 FOR J=-3 To a 

+78 IF A L+, C) =k AND Sate 


+21,C 
) =X AND A(L+JU32,C) =x AND Ai(L+J+3 
-C) =X THEN Ga TA ssa z 
489 IF ACL Cou} =k AND AIL,C+J4i 
)=X AND A(L,C+4+2) =X AND A(L,C+J 
+3) =X THEN GO TO S 

498 IF Ai(L+J,C+u) =X AND Att+u+1 
aC+U+1) =X AND RIL+J+42,C+y+2) =x A 
do A(L+J+3,C+J4+3) =x THEN GO TO § 


"S09 IF AitL-~u,ceu =X AND A(CtL-J) 
I4- GRA) =x AND A((L—-V) -2,C+J+2) 


= AND AL- -3,0454+3) =x THEN G 
Q TO sse 


S510 NEXT u 
S28 LET I$S="OQOQ": IF x=2 THEN L 
ET Is="xxx" 
gee LET) X=X+1: IF X=3 THEN LET 


Séd GO TO 28a 
Sse PRINT SVER 2; FLASH 1;AT aa 


S6@ PRINT AT 28,9; Caan 1; INK 


( 

570 INPUT “ANOTHER GAME “RE: I 
F ASI) cny" THEN STOP 

588 PRINT AT 298,9;" 

“: GO TO 220 

co PRINT AT 21,8; US; AT 21,16;u 


Saa DIM atl2,13):: Ga TO 22a 
39299 SAVE “drop four" 


gram for would-be employees of 

MGM but a neat routine for pro- 
ducing the kind of large-scale 
graphics shown in our listing. 

A maximum of four lines of eight 
characters can each be displayed on 
the screen at one time. The prompt 
for a string entry is given and a 
maximum of seven characters can 
then be entered. 

The enlarged string is then dis- 
played and will scroll up to make 
way for a new string. With a COPY 
command, the program could be 
used with the ZX-81 printer. 


Geran for would is not a pro- 


IG INPUT AŞ ` 
28 FOR L=SGN PI TO LEN AS 


38 LET 


wooo 
= 


X=VAL “FS8S2"°+CODE AK) 


FOR Y=NOT PI TO. CODE “e 


LET P=PEEK 


IX+Y 


FOR G=? TO 8 STEP -1 
IF Pi222G6 THEN GOTO 1980 
PLOT 8£L-G.8-Y 

LET PLP-24I6 

NEXT & |j, 

PAUSE CORE “j~ 

NEXT Yi: 

NEXT L 

SCROLL 

SCROLL 

SCROLL 

SCROLL 

GOTO SGN PI 


PIROGRAPH, from Martin 
C Richaras, of Stevenage, Herts 

uses the hi-res graphics of the 
Spectrum to fascinating effect. 

The program produces graphics in 
the style of those line-drawing 
machines with the swinging weights 
and turning tables. On the Spectrum, 
too, it is fun to watch and 
you have good pictures. 
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iR 


S LET LX=@: LET ty=a 
? LET X=@; LEF van... . 

12 CELE 
Ee INPUT “RADIUS OF OUTER RING 
$ 2 

2S IF R=@ THEN GO Ta ia 

SA INPUT “RADIUS OF MHEEL?“;RA 

48 INPUT “POSITION OF WHEEL I"; 
D 

S8 INPUT “SPEED?";5 — 

35 LET LX=127: LET LY=874+R-p 

57 PLOT LX,L 

Se LET Rae 

igg LET X=i(R-Ri:! SIN (A) +iR1-D) 
SIN (A+t-(RA-R1—-1)) 127 

318 LET Y=iR-R1) 3CQS (A)+CAS 
E-IRSRI—-I)I T(Ai-D) AT 

i22 DRAN X-LX,Y-LY 

132 LET LXX 

eg EET brat 

Sé LET =A+S 

162 IF INKEYs="" THEN GO TO ian 
122 sa Ta 22 


SPIRO. 
CRADH 


a 


we have not been able to see 

the TV screen for interested 
parties. Everyone in the office is 
becoming a bio-rhythm bore. 

The program requires your date 
of birth and the current date and 
then displays a neat chart of the 
month, with curves for the physical, 
mental and emotional cycles. 

Your physical state varies over a 
23-day cycle and relates to your 
endurance, strength and aggres- 
siveness. The emotional cycle lasts 
28 days and governs anger, moodi- 
ness and optimism/pessimism. Men- 
tally, you oscillate between Eins ein 
and ape over a 33-day cycle. 

The program was submitted by! R 
Clark, of Saltash, Cornwall. | 


C re h WE loaded Bio-rhythms 


1 RESTORE 
2 PRINT AT &, Dn. 


YTHM 
19 INPUT “Enter 
a. pay e ig Month 


“Sa INPUT “Enter Date Now “a ‘MM 
Year “je 


BID-F 


Date. Gf Birth 


tile-c) €O65.25% +i 


29 

815 IF r=INT tr. Bs +B cue G FOR u 

=id TO 28: Mi rau: NEXT 

820 NEXT 

5538 PRINT AT SA. JO: ist 
Sth 


5 LBth 
546 PRINT AT Ð., as 


TM 2s Mah it 


al “j INK 2; “mantat 3s INK ad; °° 
emotional" 
9388 FOR r=1 TG $S 


9365 READ u 
910 LET I=Z#PIsrit-LINT try? eyi 


920 LET K=2sPI+iSS-yi £.05 
1099 FOR a=l TO kelet(2ePI} STEP 


1 
1819 PLOT INK tti AND ve2s)+t2 f 
ND U=28) +i AND U=33,); ta-l) sies 
-25+4).96 tin a £65 

1020 NEXT 

1030 NEXT F 

1040 DATA 23.25 

1050 INeUT “another & 
F a$il)=“y“ THEN GO T 


vi 


DISTRI 


INOMIAL DISTRIBUTION 
B might be the first of a new style 
of program. It was submitted by 
P R Scott, of Goldalming, Surrey, 
who believes that there are many 
fundamental scientific principles 
which could profitably be illustrated 
on Sinclair machines. i 
This program for the 16K ZX-81 
serves to illustrate the principle of 


DIH ALT; 
FOR N=2 T 
LET HiN: =8 
NEXT x 
58 PRINT 
RIBUTION" 
sa 


1Q 
20 


G.,S: SINONIM DIST 


binomial distribution. The display 
shows a ball falling through a triang- 
ular matrix of pegs. When the ball 
hits one of the pegs it rebounds to the 
left or right, entirely at random. 

Its final position is recorded and a 
further ball produced. The distribu- 
tion of final positions is the binomial 
distribution, familiar to most O level 
mathematics candidates. You may 


IF Y=16 


LET 
IF 
IF 
GOSUB 


: “mo 
FA ye 


S.to:y 
i7.3i"- 


16.21." 
SIE “GS 


Pax 
408 


ET x 
GOSUE 


MA st 
TEEF 


IF Z/2=INT 


RI 
Rys 
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not know that this characteristic 
pattern is also of importance in spec- 
tral intensities and polymer 
conformations. 

An excellent program, likely to 
prove of immediate use to teachers 
and students of mathematics. 
Graphics notes: : 


120—Minus, Four spaces, minus and 
soon. 


de GUTG 499 
N LET 


BAIE 
«5 THE 

8.5 THEN LET X=X-2 
aa 


XaNet 


{Z72) THEN LET P 


LET Q=x 
IF AZ)»=iQ TREN LET B=9-1 


PRINT AT 
IF A(Z 


GOTO 
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3 
208 


POIRIT 
=S@ THEN INPUT Z$ 


ZAN | ( 


INAS 
N N Wee 


=< SAK / 


000609 


IF RCN THEN GOTU 210 

LET I=INTE-RA=SB5) AION+C-AXA1 
LET J=G-IZSF 

PRINT “WH"345i"4":; Ze x" 

LET #23 iNtE-AE5B3 /(N£D-BxB) 
LET L=F-xK 45 

PRINT Ke dbe HEK SE 

SEL P=SSR (Ds t(N-1) -(B#BZIN+ 
PEF O-SOR (Cr tn-23 — (RER NE 
PRINT 

PRINT 

LET 

LET R=SoR 

PRINT ”;8 
PRINT “Y SIGMRAI(N) = “iR 

LET S=((IZN) +E—-(F €6)3 OER) 
PRINT “CORRELATION CQOEFFICI |: YOU are struggling with math- 


438 PRINT “R=":5 ; ematics homework, Lineal Ta. 
goman ene enon AS dile ge ge ee 
= a - e i ems using the ZX-81. It relate 
i 2153 PRINT S {YJ = ¿RESOR (2-S*¥S both x to y and y to x, as well as 
46S PRINT = “:G6¢SGR (21-585S giving the probable errors involved. 
3 From Martyn Whitwood. of 
Rotherham, South Yorkshire. 
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B aksie 
2 B=28 
S la & Ge 
ee 424 PLOT A.E 
Esè SQ IF C=2 THEN UNPLOT R.E 
e 58 LET LS-INKEYE 
78 LET Aste( geste" GE oes tL" 
R oUes"ONs AND BEER —cruses*S~ OR 
sa" TM OR UESC“) AND AIIE) 
LET B=8etiUget?" oF sézvrn 
KO AND BEES LLE: a DA 
“Kò DR Uks=“i“i AND EE) 
IF Ug="2" THEN CORY 
F UG="O" THEN LET C=} 
IF Ukg=“iLi“ THEN LET G=2 
IF U$s“D“ THEN CLS 
UNPLOT RE 
GOTO 45 


OODLE is one of the 
D most useful programs we have 

received for the ZX-8i 
tinkerer. 

It provides a way of drawing in 
eight directions under cursor con- 
trol. Keys 5 to 8 give the usual four 
points of the compass, while I, O, K 
and L give the points between. 

Key W gives UNPLOT and you 
can return to PLOT with Q. If you 
have a printer you can input Z for an 
instant COPY; if not, omit line 85. 
Key Ø clears the screen. 

As listed, the routine is set up for 
the 1K machine and will let you 
draw only over a part of the screen. If 
a RAM pack is used you can work on 
the whole screen by changing the 
listing as follows: 

In line 70, where “A is less than 53” 
and "A is greater than 10”, change to 
“A is less than 63” and “A is greater 
than Q respectively. In line 80, “B is 
less than 35” and “Bis greater than 8” 
become “B is less than 43” and “B is 
greater than Ø”. 

Thanks to Peter Wylie, of 
Christchurch, Dorset, for this very 
worthwhile routine. 
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